
(defmacro slip (&rest a))

(setf a (list 'a 'b 'c 'd))

(defun invoke ()
 (print a)
 (slip a b c d)
 )

